Ì € i 2
abs.drg.icd.setup.file (icd.setup.file)
[icd.setup.version, icd.setup.file.no]
*DRA.CSV[djc]F[draFN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
icd.setup.file.no 2 INT R draFN
icd.setup.file.end.date 8 DATE L *DRA.CSV[djc]F[draFN]|2
icd.setup.file.end.time 5 TIME L *DRA.CSV[djc]F[draFN]|3
icd.setup.file.name 80 FREE L *DRA.CSV[djc]F[draFN]|4
icd.setup.file.path 80 FREE L *DRA.CSV[djc]F[draFN]|5
icd.setup.file.st.date 8 DATE L *DRA.CSV[djc]F[draFN]|0
icd.setup.file.st.time 5 TIME L *DRA.CSV[djc]F[draFN]|1
Ì i 2
abs drg icd9 type (icd9.type)
[icd9.version]
*DRA.ICD9[djc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
icd9.version 10 FREE L ABS.VERSION djc
Ì i 2
abs.drg (main)
[version,code]
*DRA[djc,dra]
Field Name Len Dat Typ J DPM Offset/Local/VAL
version 10 FREE L ABS.VERSION djc
code 3 FREE L dra
active 1 YN L *DRA[djc,dra]|0
age.cat 1 CHOICE L *DRA[djc,dra]|5
any.comb 1 FREE L *DRA[djc,dra]|8
any.dx 1 FREE L *DRA[djc,dra]|12
attribute.queue 50 FREE L
class 1 CHOICE L *DRA[djc,dra]|4
comp.comorb 1 CHOICE L *DRA[djc,dra]|6
custom 1 YN L *DRA[djc,dra]CU|0
discharge 1 CHOICE L *DRA[djc,dra]|7
dx.cat.0.heirarchy 2 PINT R VAL=-@exec.index[version,mdc,0,999999]
dx.category 2 PINT R
except 1 FREE L *DRA[djc,dra]|16
heirarchy.number 2 PINT R
id 3 FREE L
last.update 50 FREE L *DRA[djc,dra]UPD
last.user 10 FREE L MIS.USER *DRA[djc,dra]USR
mcc 2 FREE L ABS.MDC *DRA[djc,dra]|2
mdc 2 FREE L ABS.MDC *DRA[djc,dra]|2
mult.signif.trauma 1 FREE L *DRA[djc,dra]|17
name 70 FREE L *DRA[djc,dra]|1
name.50 50 FREE L VAL=(@ABS.DRG.name$50)
name.60 60 FREE L VAL=(@ABS.DRG.name$60)
no.secondary.dx 1 FREE L *DRA[djc,dra]|10
only.dx 1 FREE L *DRA[djc,dra]|11
only.or 1 FREE L *DRA[djc,dra]|13
or.required 1 FREE L *DRA[djc,dra]|9
other.or.req 1 FREE L *DRA[djc,dra]|14
sex.restricted 1 CHOICE L *DRA[djc,dra]|3
source 1 CHOICE L *DRA[djc,dra]|18
test.other.bt 1 FREE L *DRA[djc,dra]|15
zcus.efg.code 4 FREE L ABS.EFG.ZCUS *DRA[djc,dra]ZCUSUK|0
zcus.outpatient.code 1 YN L *DRA[djc,dra]ZCUSUK|1
Ì € i 2
drg.price.table (zcus.uk.price.table)
[version,code, zcus.uk.eff.dt]
*DRA[djc,dra]ZCUS.PT[ptD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.uk.eff.dt 8 DATE L ptD
zcus.uk.ecr.daycase 10 SMONEY R *DRA[djc,dra]ZCUS.PT[ptD]|2
zcus.uk.ecr.elect 10 SMONEY R *DRA[djc,dra]ZCUS.PT[ptD]|0
zcus.uk.ecr.nonelec 10 SMONEY R *DRA[djc,dra]ZCUS.PT[ptD]|1
zcus.uk.ecr.outpt 10 SMONEY R *DRA[djc,dra]ZCUS.PT[ptD]|3
zcus.uk.necr.daycase 10 SMONEY R *DRA[djc,dra]ZCUS.PT[ptD]|6
zcus.uk.necr.elect 10 SMONEY R *DRA[djc,dra]ZCUS.PT[ptD]|4
zcus.uk.necr.nonelec 10 SMONEY R *DRA[djc,dra]ZCUS.PT[ptD]|5
zcus.uk.necr.outpt 10 SMONEY R *DRA[djc,dra]ZCUS.PT[ptD]|7
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
abs.drg.mdc.index [version,mdc,code]
mdc.index *DRAM[djc,drd,dra]
abs.drg.name.index [version,name,code]
name.index *DRAN[djc,draN,dra]
efg.index [version,zcus.efg.code,code]
zcus.uk.efg.index *DRAZCUSEX[djc,drze,dra]
|
|
| | |